(Fminibuffer_message): Verify type of parameter.

diff --git a/src/minibuf.c b/src/minibuf.c
index 160b36188e701239ea198fe058b16ac0b2ccd9cf..ff4c21c3f03de984519801f3a16b8825e208dd7a 100644 (file)
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -1,6 +1,6 @@
 /* Minibuffer input and completion.
    Copyright (C) 1985, 1986, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
-   2000, 2001 Free Software Foundation, Inc.
+   2000, 2001, 2003 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -2431,6 +2431,7 @@ or until the next input event arrives, whichever comes first.  */)
      (string)
      Lisp_Object string;
 {
+  CHECK_STRING (string);
   temp_echo_area_glyphs (SDATA (string));
   return Qnil;
 }